home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / origami2.arc / ORIGAMI.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  836 b   |  38 lines
  1. 10  SCREEN 1,0:COLOR 1,15:CLS:KEY OFF
  2. 20  DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
  3. 30  LOCATE 7,1
  4. 40  PRINT FNCEN$("PC-ORIGAMI",40)
  5. 50  PRINT:PRINT
  6. 60  PRINT FNCEN$("The Japanese Art",40)
  7. 70  PRINT FNCEN$("of",40)
  8. 80  PRINT FNCEN$("Paperfolding",40)
  9. 90  PRINT:PRINT:PRINT
  10. 91  PRINT FNCEN$("Volume 1",40)
  11. 92  PRINT:PRINT:PRINT:PRINT
  12. 100  PRINT FNCEN$("(C) COPYRIGHT 1985 George Furiya",40)
  13. 110  PRINT FNCEN$("All Rights Reserved",40)
  14. 120  LINE(5,10)-(315,190),3,B
  15. 130  FOR K=1 TO 3500:NEXT K
  16. 140  CLS
  17. 150  LOCATE 10,1
  18. 160  PRINT FNCEN$("Press <1> for INTRODUCTION.",40)
  19. 170  LOCATE 12,11
  20. 180  PRINT "   <2> for MAIN MENU."
  21. 190  LOCATE 14,11
  22. 200  PRINT "   <3> for SHAREWARE."
  23. 210  LOCATE 16,11
  24. 220  PRINT "   <4> for STATISTICS."
  25. 230  LINE(10,10)-(310,190),3,B
  26. 240  E$=INPUT$(1)
  27. 250  IF E$<"1" OR E$>"4" GOTO 240
  28. 260  SEL=VAL(E$)
  29. 270  COMMON SEL
  30. 280  CLS
  31. 290  LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
  32. 300  LINE(70,75)-(250,125),3,B
  33. 310  ON SEL GOTO 320,330,340,350
  34. 320  CHAIN "a:INTRO"
  35. 330  CHAIN "a:main"
  36. 340  CHAIN "a:share"
  37. 350  CHAIN "a:stats"
  38.